home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / txl / rexxmdl2.lha / RexModula2 / Table.rmi < prev   
Text File  |  1992-02-26  |  402b  |  27 lines
  1. MODULE Table;
  2.  
  3. FROM XdrM2_Table IMPORT tAck, tReq;
  4. IMPORT InOut;
  5.  
  6. CONST
  7.     Size = 5;
  8.  
  9. VAR
  10.     sitting: INTEGER;
  11.     ok: tAck;
  12.     req: tReq;
  13.  
  14. BEGIN
  15.     sitting := 0;
  16.     LOOP
  17.         SELECT
  18.             sitting > 0 && ACCEPT(leave,req) :
  19.         REPLY(leave,ok);
  20.             DEC(sitting);
  21.           | sitting < ( Size - 1 ) && ACCEPT(sit,req) :
  22.         REPLY(sit,ok);
  23.             INC(sitting);
  24.     END;
  25.     END;
  26. END Table.
  27.